home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / [DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip / BBSRECV.ACT < prev    next >
Text File  |  1990-06-01  |  307b  |  13 lines
  1. trace(1);
  2. { Action file to initiate receive from BBS }
  3. { Check if filename argument given, prompt if not }
  4. @a = @1
  5. if (@1 <> "") goto :noprompt
  6. @a = prompt("Enter receive filename: ");
  7. if (@a = "") exit;
  8. :noprompt
  9. "d;@a"; @return;
  10. cwait("?"); "x"; @return;
  11. cwait("...");
  12. recvfile(@a, "xmodem");
  13.